home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Utilities / versioncontrol.script < prev    next >
Encoding:
Text File  |  1994-05-18  |  2.1 KB  |  74 lines  |  [TEXT/R*ch]
  1.  
  2. on VersionSave
  3.   -- Version Control System, copyright 1990 bill coderre
  4.   -- This program may be distributed freely with this copyright
  5.   -- notice intact.
  6.  
  7.   -- start to calculate the new name of the stack
  8.   put the short name of this stack into name
  9.   put the second word of the long name of this stack into namepath
  10.   delete the first character of namepath
  11.   delete the last character of namepath
  12.   put name into newname
  13.   get the last word of name
  14.   
  15.   -- check for proper stack name syntax
  16.   if it is not an integer then
  17.     answer "The stack name doesn't end with a number." ~
  18.     & return & return & "Can't do version control." with "Cancel"
  19.     exit to Hypercard
  20.   end if
  21.   
  22.   -- ok, so make the new name
  23.   add 1 to it
  24.   put it into the last word of newname
  25.   put it into the last word of namepath
  26.   
  27.   -- check for overwriting an existing stack
  28.   if there is a stack namepath then
  29.     answer "There is already a stack called" && quote & ~
  30.     newname & quote & "." & return & return & ~
  31.     "Can't do version control." with "Cancel"
  32.     exit to Hypercard
  33.   end if
  34.   
  35.   -- check for new name too long
  36.   if the number of characters in newname > 29 then
  37.     answer "The new name of this stack (" & quote & ~
  38.     newname & quote & ") is too long." & return & return & ~
  39.     "Can't do version control." with "Cancel"
  40.     exit to Hypercard
  41.   end if
  42.   
  43.   -- check for enough diskspace
  44.   put the size of this stack into mySize
  45.   put the freeSize of this stack into myFree
  46.   if 2 * (mySize - myFree) > the diskSpace then
  47.     answer "There isn't enough disk space to proceed." ~
  48.     & return & return & ~
  49.     "Can't do version control." with "Cancel"
  50.     exit to Hypercard
  51.   end if
  52.   
  53.   -- stow the message box visibility and contents
  54.   put msg into mtemp
  55.   put the visible of msg into mvis
  56.   
  57.   -- Compact the stack
  58.   put "Compacting stack..."
  59.   doMenu "Compact Stack"
  60.   
  61.   -- now change the name of the stack to the new name
  62.   put "Updating stack version number..."
  63.   set the name of this stack to newname
  64.   
  65.   -- save a copy under the old name
  66.   save this stack as name
  67.   
  68.   -- stow the message box visibility and contents
  69.   put mtemp into msg
  70.   set the visible of msg to mvis
  71. end VersionSave
  72.  
  73.  
  74.